home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rotate2a / form1.frm < prev    next >
Text File  |  1999-10-18  |  5KB  |  185 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Rotate WMF┤s     eaguirre"
  4.    ClientHeight    =   5205
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   8250
  8.    ForeColor       =   &H00C0C0C0&
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   5205
  11.    ScaleWidth      =   8250
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.PictureBox Picture1 
  14.       Height          =   1575
  15.       Index           =   9
  16.       Left            =   6600
  17.       Picture         =   "Form1.frx":0000
  18.       ScaleHeight     =   1515
  19.       ScaleWidth      =   1395
  20.       TabIndex        =   11
  21.       Top             =   3480
  22.       Width           =   1455
  23.    End
  24.    Begin VB.PictureBox Picture1 
  25.       Height          =   1695
  26.       Index           =   8
  27.       Left            =   1800
  28.       Picture         =   "Form1.frx":03E2
  29.       ScaleHeight     =   1635
  30.       ScaleWidth      =   1395
  31.       TabIndex        =   10
  32.       Top             =   3360
  33.       Width           =   1455
  34.    End
  35.    Begin VB.PictureBox Picture1 
  36.       Height          =   1695
  37.       Index           =   7
  38.       Left            =   240
  39.       Picture         =   "Form1.frx":18C4
  40.       ScaleHeight     =   1635
  41.       ScaleWidth      =   1395
  42.       TabIndex        =   9
  43.       Top             =   3360
  44.       Width           =   1455
  45.    End
  46.    Begin VB.PictureBox Picture1 
  47.       Height          =   3255
  48.       Index           =   6
  49.       Left            =   3360
  50.       Picture         =   "Form1.frx":2586
  51.       ScaleHeight     =   3195
  52.       ScaleWidth      =   2955
  53.       TabIndex        =   8
  54.       Top             =   1800
  55.       Width           =   3015
  56.    End
  57.    Begin VB.PictureBox Picture1 
  58.       Height          =   1455
  59.       Index           =   5
  60.       Left            =   1800
  61.       Picture         =   "Form1.frx":2AC8
  62.       ScaleHeight     =   1395
  63.       ScaleWidth      =   1395
  64.       TabIndex        =   7
  65.       Top             =   1800
  66.       Width           =   1455
  67.    End
  68.    Begin VB.PictureBox Picture1 
  69.       Height          =   1455
  70.       Index           =   4
  71.       Left            =   240
  72.       Picture         =   "Form1.frx":540A
  73.       ScaleHeight     =   1395
  74.       ScaleWidth      =   1395
  75.       TabIndex        =   6
  76.       Top             =   1800
  77.       Width           =   1455
  78.    End
  79.    Begin VB.PictureBox Picture1 
  80.       Height          =   1455
  81.       Index           =   3
  82.       Left            =   4920
  83.       Picture         =   "Form1.frx":5C4C
  84.       ScaleHeight     =   1395
  85.       ScaleWidth      =   1395
  86.       TabIndex        =   5
  87.       Top             =   240
  88.       Width           =   1455
  89.    End
  90.    Begin VB.PictureBox Picture1 
  91.       Height          =   1455
  92.       Index           =   2
  93.       Left            =   3360
  94.       Picture         =   "Form1.frx":65EE
  95.       ScaleHeight     =   1395
  96.       ScaleWidth      =   1395
  97.       TabIndex        =   4
  98.       Top             =   240
  99.       Width           =   1455
  100.    End
  101.    Begin VB.PictureBox Picture1 
  102.       Height          =   1455
  103.       Index           =   1
  104.       Left            =   1800
  105.       Picture         =   "Form1.frx":7110
  106.       ScaleHeight     =   1395
  107.       ScaleWidth      =   1395
  108.       TabIndex        =   3
  109.       Top             =   240
  110.       Width           =   1455
  111.    End
  112.    Begin VB.CommandButton Command1 
  113.       Caption         =   "Start"
  114.       Height          =   375
  115.       Left            =   6600
  116.       TabIndex        =   2
  117.       Top             =   1920
  118.       Width           =   1095
  119.    End
  120.    Begin RotateWMF.angButton angButton1 
  121.       Height          =   1200
  122.       Left            =   6600
  123.       TabIndex        =   1
  124.       Top             =   600
  125.       Width           =   1200
  126.       _ExtentX        =   2117
  127.       _ExtentY        =   2117
  128.       Trace           =   0
  129.    End
  130.    Begin VB.PictureBox Picture1 
  131.       Height          =   1455
  132.       Index           =   0
  133.       Left            =   240
  134.       Picture         =   "Form1.frx":8332
  135.       ScaleHeight     =   1395
  136.       ScaleWidth      =   1395
  137.       TabIndex        =   0
  138.       Top             =   240
  139.       Width           =   1455
  140.    End
  141. End
  142. Attribute VB_Name = "Form1"
  143. Attribute VB_GlobalNameSpace = False
  144. Attribute VB_Creatable = False
  145. Attribute VB_PredeclaredId = True
  146. Attribute VB_Exposed = False
  147.  
  148. '--------------------------------------------------------------
  149. ' Author: EAguirre
  150. ' Date  : 5/01/98
  151. ' Prog  : Form1.frm
  152. ' Desc  : Rotate a Windows Metafile
  153. '--------------------------------------------------------------
  154.  
  155. Option Explicit
  156. Dim fDraw As Boolean
  157.  
  158. Private Sub Command1_Click()
  159.   fDraw = Not (fDraw)
  160.   If fDraw Then
  161.     Command1.Caption = "Stop"
  162.    Else
  163.     Command1.Caption = "Start"
  164.   End If
  165.   If fDraw Then Draw
  166. End Sub
  167.  
  168. Private Sub Form_Load()
  169. fDraw = False
  170. End Sub
  171.  
  172. Public Sub Draw()
  173. Dim i As Integer
  174. Do While fDraw
  175.     Angle = angButton1.Angle
  176.     'Rotate the metafile
  177.     For i = 0 To 9
  178.       EnumMetaFile Picture1(i).hdc, Picture1(i).Picture, AddressOf EnumMetaRecord, 1
  179.       Picture1(i).Refresh
  180.     Next i
  181.     DoEvents
  182. Loop
  183. End Sub
  184.  
  185.